home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / editor / frexxed / fpl / gotochange.fpl < prev    next >
Text File  |  1995-07-18  |  330b  |  16 lines
  1. int lastcounter=0;
  2. int changenumber=0;
  3.  
  4. export int MyGotoChange()
  5. {
  6.   int counter=ReadInfo("counter");
  7.   if (counter==lastcounter+1)
  8.     changenumber++;
  9.   else
  10.     changenumber=0;
  11.   if (changenumber!=GotoChange(changenumber))
  12.     ReturnStatus("No more changes!");
  13.   lastcounter=counter;
  14. }
  15. AssignKey("MyGotoChange();", "amiga l");
  16.